1 GOTO910 2 PRINT"x[169][141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X` 3 [153]"xSTEPGINPUTSTOPSTEPINPUTONX` (null)(null)STEP(null)INPUTLISTLX(null)xSTEPUINPUTSTOPSTEP(null)INPUTONX` 4 PRINT"xhhh[170]h[168]hhhhhhh[152]H[138]HX` 5 [153]"hhhhhhh` 6 PRINT"[160][255][200][132][251][169][216][133][252] [241][183][138][162][160][255][200][145][251][136][208][251][230][252][202][208][246]` 7 [153]"NEWCLOSE(null)LEFT$>(null)ON(null)LET(null)(null)(null)(null)(null)(null)MID$(null)(null)` 35 IFUW=0THENSYSUU,15 40 POKEUC,0:POKEUN,0:UR$="":UI$="":IFUL=0THENUL=39 45 GETUI$:IFUI$=""THEN45 50 UA=ASC(UI$):UR=LEN(UR$):IFUA=13ANDUR>0THENPOKEUC,1:PRINT" [157]";:GOTO70 55 IFUA=20THENON-(UR=0)GOTO45:UR$=LEFT$(UR$,UR-1):PRINT"[157] [157][157]";:GOTO45 60 IFUR=ULTHEN45 65 GOSUB95:UR$=UR$+UI$:PRINTUI$;:GOTO45 70 IFUR$=UX$THENPRINT"[157] ";:GOTO145 75 FORUI=URTO1STEP-1:IFMID$(UR$,UI,1)=" "THENNEXT 80 UR$=LEFT$(UR$,UI):PRINT:RETURN 95 IFLEN(US$)=0THEN110 100 FORUI=1TOLEN(US$):IFUI$<>MID$(US$,UI,1)THENNEXT:UI$="" 105 RETURN 110 IFUA=46THENRETURN 115 IFUA=32ANDUR<>0THENRETURN 120 IFUA>47ANDUA<58THENRETURN 125 IFUA>64ANDUA<91THENRETURN 130 IFUA<193ORUA>218THENUI$="":RETURN 135 IFPEEK(UT)=UU%THENUI$=CHR$(UA-128) 140 RETURN 145 GOSUB170:POKE251,0:POKE252,US/256:POKE253,0:POKE254,UF:SYSUV 150 UZ=1:UV%=PEEK(UT):GOTO300 155 UZ=0:US$=UJ$:UG$=UK$:UT$=UL$:UP=UJ:UL=UK:PRINT"[147]";:IFUW=0THENPOKEUY,6:POKEUX,14 160 POKEUT,UV%:POKE251,0:POKE252,UF:POKE253,0:POKE254,US/256:SYSUV:IFUW=0THENSYSUU,15 165 POKEU1,U1%:POKEU2,U2%:POKEU3,U3%-1:POKEU4,U4%:GOTO35 170 U1%=PEEK(U1):U2%=PEEK(U2):U3%=PEEK(U3):U4%=PEEK(U4) 175 UJ$=US$:UK$=UG$:UL$=UT$:UJ=UP:UK=UL:RETURN 300 PRINT"[147]":POKEUT,UU%:IFUW=0THENPOKEUY,12:POKEUX,6 305 PRINT" M E N U" 310 PRINT" --------------------------------" 315 PRINT" 1. BEGIN MATCH UP NUMBERS 320 [153]" 2. STUDENT INSTRUCTIONS" 325 [153]" 3. TEACHER INSTRUCTIONS" 330 [153]" 4. QUIT" 335 [153]" --------------------------------" 340 [153]" PRESS A NUMBER KEY (1-4) "; 345 UL[178]1:US$[178]"1234" 347 [141]35:US$[178]"" 350 [145][197](UR$)[141]1000,400,500,390 355 [137]300 370 [139]UZ[178]1[167][158]UP%:[137]155 375 [142] 390 [158]UE:[153]"CONTLOAD":[139]UW[178]0[167][151]UY,6:[151]UX,14:[158]UU,14 395 [156]:[128] 400 [153]"LOAD":[151]UT,UL%:[139]UW[178]0[167][151]UY,11:[151]UX,12 405 UT$[178]" (null)ATCH (null)P (null)UMBERS":UH[178]1:UP[178]0:UG$[178]"(null)TUDENT RIGHT$NST":[141]850 410 [153]" ATN NUMBER WILL BE APPEAR IN A 412 PRINT" BOX AT THE TOP LEFT-HAND CORNER OF 414 [153]" THE SCREEN. (null)HEN FIVE MORE NUMBERS 416 PRINT" WILL BE PRINTED AT DIFFERENT SPOTS 418 [153]" ON THE SCREEN. (null)OU HAVE TO TYPE IN 420 PRINT" THE NUMBER THAT MATCHES THE ONE IN 422 [153]" THE BOX. 424 PRINT" [193]T THE END OF THE TEST YOUR 426 [153]" RESULTS WILL BE PRINTED. 428 GOSUB835:GOSUB850 430 PRINT" [201]F AT ANY TIME YOU REQUIRE HELP, PRESS 432 [153]" LEFT$ <(null)VAL(null)(null)(null)(null)> AND YOU WILL BE RETURNED TO" 434 [153]" THE MENU. 485 GOSUB835 490 IFUZ=1THENSYSUP%:GOTO155 495 RETURN 500 PRINT"[147]":POKEUT,UL%:IFUW=0THENPOKEUY,2:POKEUX,10 501 UT$=" [205]ATCH [213]P [206]UMBERS":UH=1:UP=0:UG$="[212]EACHER [201]NST":GOSUB850 502 PRINT" [212]O THE BEST OF OUR KNOWLEDGE," 503 PRINT" THIS PROGRAM IS IN THE PUBLIC" 504 PRINT" DOMAIN. [201]F THIS IS NOT TRUE," 505 PRINT" PLEASE CONTACT:" 506 PRINT" [195][207][205][205][207][196][207][210][197][160][194][213][211][201][206][197][211][211][160][205][193][195][200][201][206][197][211]" 507 PRINT" 3370 [208]HARMACY [193]VE. 508 [153]" ATNGINCOURT, (null)NTARIO" 509 [153]" LENANADA, (null)1(null) 2(null)4" 510 [153]" (416) 499-4292" 511 UH[178]1:[141]835:[141]850 512 [153]" (null)ROGRAM (null)AME: (null)ATCH (null)P (null)UMBERS 513 PRINT" [215]RITTEN BY : [205]. [193]USTIN 514 [153]" (null)EVISED BY : (null)ETER (null)AN 515 PRINT" [212]HIS PROGRAM WILL RUN ON ANY 516 [153]" PEEKATN(null)RIGHT$LENCLOSE2.0 (null)VAL(null) LENOMPUTER 517 PRINT" [194][193][211][201][195] 4.0 [208][197][212][160][195]OMPUTER 518 [153]" 8032 LENPEEK(null) LENOMPUTER 519 PRINT" [195]OMMODORE 64 [195]OMPUTER 585 [141]835 590 [139]UZ[178]1[167][158]UP%:[137]155 595 [142] 700 [153]UC$"LOADBEFORE RUNNING THIS PROGRAM ON AN 8032 705 PRINT" LOAD THE 'CBM 4032' PROGRAM":END 800 PRINT"[147]";:POKEUT,UU%:IFUW=0THENPOKEUY,1:POKEUX,14 801 FORI=1TO38:PRINT" [146]";:NEXT 802 FORI=1TO22:PRINT"[157] [146]";:NEXT 803 FORI=1TO37:PRINT"[157][157] [146]";:NEXT 804 FORI=1TO22:PRINT"[145][157] [146]";:NEXT 805 PRINT"[169] [146] 806 [153]" WAIT  WAITSTEP 807 PRINT" [146] [163][223][146] O M M O D O R E 808 [153]"(null) WAIT 809 PRINT"EDUCATIONAL 810 [153]"SOFTWARE 811 PRINT"1983 812 [153][200](UD$,24);"PRESS SPACE BAR OR WAITWAIT"UC$:UI[178]0 813 [161]UI$:[139]UI$[179][177]" "[167]UI[178]UI[170]1:[139]UI[179]250[167]813 814 [137]300 835 [151]UN,0:[153][200](UD$,24);"PRESS SPACE BAR TO CONTINUEWAIT" 840 [161]UI$:[139]UI$[179][177]" "[167]840 845 [142] 850 UP[178]UP[170]1:[153]"LOAD"[200](UT$[170]UP$,21);[201](UP$[170]UG$[170][196](UP),18) 855 [153]" --------------------------------------" 860 [139]UH[178]0[167][153][200](UD$,24);[200](UP$,7);"HELP - PRESS H " 865 UH[178]0:[153]"":[142] 875 [153][200](UD$,24);" ONE MOMENT PLEASE... ":[142] 900 UX$[178]"H":US[178]32768:U1[178]196:U2[178]197:U3[178]198:U4[178]216:UC[178]167:UB[178]1024:UD[178]1084:UE[178]1105 901 UT[178]59468:UU%[178]12:UL%[178]14:UP%[178]1158:UN[178]158:[151]50003,0:UW[178][194](50003):UF[178][194](53) 902 [139]UW[178]0[167]US[178]1024:U1[178]209:U2[178]210:U3[178]211:U4[178]214:UC[178]204:UB[178]2048:UX[178]53280:UD[178]2064 903 [139]UW[178]0[167]UT[178]53272:UU%[178]21:UL%[178]23:UP%[178]2151:UN[178]198:UY[178]53281:UU[178]2199:UE[178]2087 904 UC$[178][199](155):UV[178]1214:[139]UW[178]0[167]UF[178]196:UV[178]2238 905 UD$[178]"":UP$[178]" " 906 [134]NO$(20),PN(20),N(20) 907 LP$[178]"N" 909 [142] 910 [141]900:[153]"LOAD":[153]"CLOSE":[143] SHIFTED SPACE 915 [139][194](US[170]40)[179][177]96[167]700 920 [139]([184](0)[171]([180]([184](0))[179]0)[172]65536)[177]500[167]935 925 [153]UC$"LOADTHIS MACHINE DOES NOT HAVE ENOUGH" 930 [153]"MEMORY TO RUN THIS PROGRAM !":[158]UE:[128] 935 [153]"LOAD"UC$:[139]UW[178]0[167]965 940 [139]UF[178]60[176]UF[178]108[176]UF[178]124[167]950 945 [151]52,0:[151]53,UF[171]4:[156]:[141]900 950 [139]UW[178]160[167][151]1103,88:[151]1104,228:[151]1107,85:[151]1111,228:[137]965 955 [139]UW[179][177]1[167][153]"LOADTHIS PGM WILL NOT WORK ON THIS MACHINE!":[158]UE:[128] 960 [151]1103,49:[151]1104,230:[151]1107,46:[151]1111,230:[137]965 965 [158]UD 970 [141]800:[137]300 1000 [139]UZ[178]1[167][158]UP%:[158]UP%:UZ[178]0 1001 [153]"LOAD"UC$;:[140]:[139]UW[178]0[167][151]UY,6:[151]UX,14 1010 [140]:WR[178]0:W[178]0:R[178]0:CO[178]0:P(0)[178]5:[129]I[178]1[164]5:[135]J:P(I)[178]J[170]UB:[130] 1011 [131]456,470,846,859,870 1017 QN[178]0:B$(1)[178]" ":[129]E[178]2[164]9:B$(E)[178]B$(1):[130] 1020 UT$[178]" MATCH UP NUMBERS":UP[178]0:UG$[178]"":[141]850 1030 [153]" WHAT'S YOUR NAME? ";:US$[178]"":UL[178]8:[141]35:NA$[178]UR$ 1040 [153]" HOW MANY QUESTIONS WOULD YOU LIKE" 1041 [153]" "NA$" (1-20) ? CMDCMD";:US$[178]"H0123456789":UL[178]2:[141]35:NQ[178][197](UR$) 1042 [139]NQ[177]0[175]NQ[179]21[167]1048 1044 [153]" ILLEGAL RESPONSEWAIT" 1045 U1%[178][194](U1):U2%[178][194](U2):U3%[178][194](U3):U4%[178][194](U4):[141]835:[141]860 1046 [151]U1,U1%:[151]U2,U2%:[151]U3,U3%:[151]U4,U4%:[153]"ON"UP$ 1047 [153]"ONONON"UP$:[153]"ON";:[137]1041 1048 [129]U[178]0[164]9:[135]NO$(U):[130]U 1049 [131]" (null)TAB(TAB((null)CMDTHENCMDTHENCMDTHENCMDTHENCMDTHENCMDCMDCMDCMDCMDONONONONTHENCMDTHENCMDTHENCMDTHENCMDTHEN(null)TOTO(null)CMDCMDCMDCMDCMD " 1050 [131]"(null)FNCMDFNCMDFNCMDFNCMDFNCMDFNCMD(null)TOCMDCMDCMDCMDTOTOCMDCMDCMD " 1061 [131]" (null)TAB(TAB((null)CMDTHENCMD(null)CMDCMD(null)CMDCMD(null)CMDCMD(null)CMD(null)TOTOTOCMDCMDCMDCMD " 1071 [131]" (null)TAB(TAB((null)CMDTHENCMD(null)CMDCMDTAB((null)CMDTHENCMDTHENCMDCMDCMDCMD(null)TOTO(null)CMDCMDCMDCMDCMD " 1080 [131]"THEN FNCMDFNCMDFNCMD(null)CMDFNCMDFNCMDFNONONONCMDCMDCMDCMDONONCMDTHENCMDTHENCMDTHENTOTOTO " 1090 [131]" (null)TAB(TAB(TAB(CMDCMDCMDCMDFNCMD(null)TOTO(null)CMDTHENCMDTHENCMDCMDCMDCMD(null)TOTO(null)CMDCMDCMDCMDCMD " 1101 [131]" (null)TAB(TAB((null)CMDCMDCMDCMDFNCMD(null)CMDFNCMDFNCMDFNCMD(null)TOTO(null)ONCMDTHENONCMDTHENONONCMDCMDCMDCMDTOTO(null)CMDCMDCMDCMDCMD " 1111 [131]"THENTAB(TAB(TAB(TAB(FNCMDCMD(null)CMDCMD(null)CMDCMD(null)CMDFNCMDFNCMDFNCMDCMDCMD " 1121 [131]" (null)TAB(TAB((null)CMDTHENCMD(null)CMD(null)CMDTHENCMDTHENCMDCMDCMDCMD(null)TOTO(null)CMDCMDCMDCMDONFNONCMDFNONCMD(null)ONCMD(null)ONCMDFNTOTO " 1130 [131]" (null)TAB(TAB((null)CMDTHENCMDTHENCMDSQRCMDCMDCMDCMDONONFNCMDFNCMD(null)TOTOTHENCMDTHENCMDCMDCMDCMD(null)TOTO(null)CMDCMDCMDCMDCMD " 1220 WR[178]0:QN[178]QN[170]1:[139]QN[177]NQ[167]5000 1230 UP[178]QN[171]1:UG$[178]" QUESTION #":[141]850 1235 [139]FF[178]1[167]1243 1240 RN[178][181]([187](1)[172]10) 1243 FF[178]0:Y$[178]"" 1245 [153]"":A0$[178]"" 1250 [141]4000 1260 [153]"":[129]I[178]1[164]10:[153]Y$;"THEN":[130] 1270 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(" 1280 A$(1)[178]"" 1290 A$(2)[178]"" 1300 A$(3)[178]"" 1310 A$(4)[178]"" 1315 A$(5)[178]"" 1325 P[178][181](([187](1)[172]5)[170]1):[139]P[177]2[167]DX[178]12 1330 DX[178]2 1345 [129]Y[178]1[164]5 1346 A0$[178]A$(Y) 1347 [139]Y[178]P[167]R2[178]RN:A0$[178]A$(P):[137]1358 1350 R2[178][181]([187](1)[172]10) 1355 [129]T[178]1[164]Y:[139]R(T)[178]R2[167]1350 1356 [130] 1357 [139]R2[178]RN[167]1350 1358 R(Y)[178]R2 1362 [139]Y[177]2[167]DX[178]12 1365 [141]4020 1370 [141]4010 1380 [130]Y 1408 [153][200](UD$,22); 1410 [153]UP$:[153][200](UD$,22)" WHICH NUMERAL MATCHES ? "; 1415 US$[178]"H0123456789":UL[178]1:[141]35:AN$[178]UR$ 1416 AN[178]RN 1420 [139][197](AN$)[178]AN[167]1500 1425 WR[178]WR[170]1 1427 [139]WR[178]2[167]1450 1430 [153]"ON "NA$", THAT'S WRONG. TRY AGAIN.":[141]7000:F[178]0 1440 [153]"ON";:[129]K[178]1[164]CO:[139]PN(K)[178]RN[167]F[178]1 1445 [139]F[178]0[167]CO[178]CO[170]1:PN(CO)[178]RN 1446 [137]1410 1450 [153]"ON SORRY "NA$" YOU ARE WRONG AGAIN." 1455 N(CO)[178]1 1460 [137]2140 1500 F1[178]1:[141]2150:F1[178]0 1501 [153][200](UD$,22)UP$ 1505 A0$[178]A$(P):DX[178]2:[139]P[177]2[167]DX[178]12 1520 I[178]0:Z[178]9 1525 [141]4020 1526 [129]J[178]1[164]Z:[153]A0$;B$(J):[130] 1527 [139]P[177]3[175]F2[178]1[167]1532 1531 [139]P[177][178]3[167][137]1700 1532 [139]I[178]0[167]DX[178]DX[170]1:Z[178]8 1533 I[178]1 1535 [141]4020 1537 A0$[178][202](A0$,3) 1550 [141]4000 1570 [139][195](A0$)[178]0[167]1800 1575 [137]1525 1700 DX[178]DX[171]3:[139]P[177]3[167]1710 1705 A0$[178]"" 1710 [141]4020 1715 [141]4000 1717 [139]DX[178]3[175]P[177]3[167]F2[178]1:DX[178]2:[137]1520 1718 [139]DX[178]3[167]1800 1720 [137]1525 1800 F2[178]0:[153]"":[129]I[178]1[164]10:[153]Y$;"THEN":[130] 1810 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(" 1830 [153]" A PERFECT MATCHWAIT":[153]" GOOD "NA$ 1840 [141]835:[137]1220 2140 W[178]W[170]1:[141]7000 2150 DX[178]2:[139]P[177]2[167]DX[178]12 2160 [141]4020 3040 DX[178]2 3060 [129]YY[178]1[164]5 3070 [139]YY[178]P[167]3110 3080 A0$[178]A$(YY) 3090 [139]YY[177]2[167]DX[178]12 3100 [141]4020 3105 [129]X[178]1[164]8:[153]A0$;B$(X):[130] 3110 [130]YY:[139]F1[178]1[167][142] 3115 [153][200](UD$,22)" THIS IS THE CORRECT MATCHWAIT " 3140 [141]835:FF[178]1:[137]1220 4000 [153]A0$;NO$(RN):[142] 4010 [153]A0$;NO$(R2):[142] 4020 [153]"":[129]J[178]1[164]DX:[153]"";:[130]J:[142] 5000 UP[178]0:UG$[178]"":[141]850:[153]" THAT'S ALL!! THANKS FOR KEEPING ME" 5020 [153]" COMPANY "NA$"." 5030 [153]"RIGHT: "NQ[171]W 5040 [153]"WRONG: "W 5050 S[178]((NQ[171]W)[173]NQ)[172]100:S2$[178]"" 5060 [139]S[178]100[167]S$[178]" PERFECTWAIT":[137]6015 5070 [139]S[177][178]80[167]S$[178]" EXCELLENTWAIT.":[137]6010 5080 [139]S[177][178]70[167]S$[178]" GOODWAIT.":[137]6010 5090 [139]S[177][178]55[167]S$[178]" FAIR. MAYBE YOU'LL"[170][199](13)[170]" DO BETTER TOMORROW.":[137]6010 6000 [153]" "NA$", YOU NEED EXTRA HELP.":[153]" MAYBE YOU'LL DO BETTER NEXT TIME. 6005 GOTO6020 6010 PRINT" "NA$", YOU DID"; 6015 PRINT" "S$ 6020 IFCO=0THEN6040 6025 PRINT" YOU HAD PROBLEMS WITH:" 6026 PRINT" (THE MATCHES WHICH YOU ANSWERED IN- 6027 [153]" CORRECTLY TWICE ARE IN REVERSEFIELDWAIT)" 6030 [129]I[178]1[164]CO:[139][201]([196](I),1)[178]"1"[167][153]:[153]" "; 6032 [139]N(I)[178]1[167][153]""PN(I)"WAIT";:[137]6037 6035 [153]PN(I); 6037 [130] 6040 [141]835 6050 [142] 7000 U1%[178][194](U1):U2%[178][194](U2):U3%[178][194](U3):U4%[178][194](U4):[141]835:[141]860 7010 [151]U1,U1%:[151]U2,U2%:[151]U3,U3%:[151]U4,U4%:[142]